home *** CD-ROM | disk | FTP | other *** search
/ Mac-Source 1994 July / Mac-Source_July_1994.iso / C and C++ / Libraries / TransSkel / Demos / Pascal Demos / MiniSkel / MiniSkel.p next >
Text File  |  1994-02-23  |  441b  |  30 lines
  1. program MiniSkel;
  2.  
  3.     uses
  4.         TransSkel;
  5.  
  6.     const
  7.         fileMenuNum = skelAppleMenuID + 1;
  8.  
  9.     procedure DoFileMenu (item: Integer);
  10.     begin
  11.         SkelStopEventLoop;
  12.     end;
  13.  
  14.     procedure main;
  15.         var
  16.             m: MenuHandle;
  17.             ignore: Boolean;
  18.     begin
  19.         SkelInit(nil);
  20.         SkelApple('', nil);
  21.         m := NewMenu(fileMenuNum, 'File');
  22.         AppendMenu(m, 'Quit/Q');
  23.         ignore := SkelMenu(m, @DoFileMenu, nil, false, true);
  24.         SkelEventLoop;
  25.         SkelCleanup;
  26.     end;
  27.  
  28. begin
  29.     main;
  30. end.